Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/4-Demos/Apple Demos/Tutorials/Display Card 4•8⁄8•24 Training/Display Card 4•8_8•24 Training/stack_-1.xml

Extensible Markup Language | 1990-03-19 | 4KB | 16 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>121</cardCount>
    <cardID>3041</cardID>
    <listID>24793</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>--             Script of Stack "Macintosh Display Card 8/24"--             Copyright © 1990 by Apple Computer, Inc.----------------------------------------------------------------------- HyperCard construction — Cynthia Kolnick, Chuck Walker with additions--            by Tom Hudson, Howard Bornstein and David Boardman-- Functions: clickLine,-- Handlers:  openStack, closeStack, arrowKey,--            returnKey, enterKey, mouseUp, whatMenu,--            resetMap, runningPause-- Fonts:     Garamond 14, Garamond Italics 14, Garamond Bold 14,--            Helvetica 18-- Sounds:    Bell, Orchestral music from Apple CD-ROM Explorer-- —————————————————————————————————————————————————————————————————on openStackglobal mapLoc, cardLoc-- mapLoc tracks location by section name-- cardLoc tracks location by the number of the card nameset cursor to watchif the version < 1.2 thenanswer "This stack requires HyperCard version 1.2." with¬"Continue" or "Home"if it is "Home" then domenu homeend ifput item 2 of the screenRect into screenTopif top of card window < screenTop + 20 then hide menuBarhide tool windowhide pattern windowhide menubarhide msgresetMapif cd fld "WhereWasI" ≠ "" thenput cd fld "WhereWasI" into WhereWasIput "" into cd fld "WhereWasI"visual effect dissolveanswer "Do you want to return to where you left off?" with "No" or "Yes"if it is "Yes" then go card WhereWasIend ifend openStack--————————————————————————————————————————————————————————————————————on closeStackanswer "Do you want to save your place?" with "Yes" or "No"if it is "No" then put empty into field "footprints" of card "Map"elseput "saved" into line 13 of field "footprints" of card "Map"put short name of this card into cd fld "WhereWasI" of card "open 0"end ifpass closeStackend closeStack--————————————————————————————————————————————————————————————————————--  intercept keyboard handlers:--  same as clicking the arrow buttonson arrowKey whatKeyif whatKey = "Left" then click at 442,328if whatKey = "Right" then click at 469,328end arrowKey--  same as clicking the return buttonon returnKeyclick at 498,328end returnKey--  intercept enter keyon enterKeyend enterKey--————————————————————————————————————————————————————————————————————-- help dialog, customized for various locations in the stackon mouseUpvisual dissolvepush cardif word 1 of the short name of this card = "content" thenanswer "Click on a card in the section or the map." with "Help" or "OK"if it is "help" then go card "help 2"else exit mouseupend ifif word 1 of the short name of this card = "index" thenanswer "Click on a subheading or Arrow button." with "Help" or "OK"if it is "Help" then go card "howToUse"else exit mouseUpend ifif word 1 of the short name of this card ≠ "test" thenanswer "Click one of the Arrow buttons." with "Help" or "OK"if it is "Help" then go card "howToUse"else exit mouseUpend ifend mouseUp--—————————————————————————————————————————————————————————